home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0063_FASTEST File Exist (BASM).pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  664b  |  26 lines
  1.  
  2. Function FileExists(FileName : string) : boolean; assembler;
  3. { Determines whether the given file exists. Returns true if the file was found,
  4.   false - if there is no such file }
  5. Asm
  6.   PUSH DS
  7.   LDS DX,FileName
  8.   INC DX
  9.   MOV AX,4300h  { get information through the GetAttr function }
  10.   INT 21h
  11.   MOV AL,False { emulate AL=0 }
  12.   JC  @@1
  13.   INC AL { emulate AL=AL+1=1 }
  14. @@1:
  15.   POP DS
  16. End; { FileExists }
  17.  
  18. const Found : array[Boolean] of string[10] = ('not found', 'found');
  19. var FileName : string;
  20.  
  21. Begin
  22.   Write('Enter file name to search: ');
  23.   ReadLn(FileName);
  24.   WriteLn('File "', FileName, '" ', Found[FileExists(FileName)], '.');
  25. End.
  26.